with Ada.Text_IO;

procedure Hello is
	A, B : Integer;
begin
	A := Integer'Value (Ada.Text_IO.Get_Line);
	B := Integer'Value (Ada.Text_IO.Get_Line);

	if A = B then
		Ada.Text_IO.Put_Line ("A == B true" & " Value is" & Integer'Image (A));
	else
		Ada.Text_IO.Put_Line ("A == B false");
	end if;
end Hello;
